--This is the shop GUI
--Players can upgrade their stats and buy new characters to play as.

function GM:ShowSpare2( )
	ply = LocalPlayer( )

	if ( IsValid(self.ShopFrame) ) then return end

	self.ShopFrame = vgui.Create( "DFrame" )
	self.ShopFrame:SetTitle( "Shop for Upgrades and Characters" )
	self.ShopFrame:SetSize( 510, 380 )
	self.ShopFrame:Center( )
	self.ShopFrame:MakePopup( )
	self.ShopFrame:SetKeyboardInputEnabled( false )
	
		--
		local shop = vgui.Create( "DPropertySheet", self.ShopFrame )
		shop:SetPos( 1, 25 )
		shop:SetSize( 508, 354 )

			local charactersPanel = vgui.Create( "DPanel" )
			charactersPanel:SetSize( 340, 150 )
			charactersPanel.Paint = function( )
				surface.SetDrawColor( 25, 25, 25, 200 )
				surface.DrawRect( 0, 0, charactersPanel:GetWide( ), charactersPanel:GetTall( ) )
				surface.SetDrawColor( 255, 255, 255, 255 )
				surface.DrawOutlinedRect(0, 0, charactersPanel:GetWide( ), charactersPanel:GetTall( ) )
			end

				local instructions = vgui.Create( "DLabel", charactersPanel )
				instructions:SetPos( 10, 10 )
				instructions:SetText( "Purchase new characters here. Some characters have special ball models!" )
				instructions:SizeToContents( )
				
				local dr_hax_purchase = vgui.Create( "DButton", charactersPanel )
				dr_hax_purchase:SetPos( 10, 40 )
				dr_hax_purchase:SetText( "Buy Dr. Hax" )
				dr_hax_purchase:SetSize( 100, 40 )
				function dr_hax_purchase.DoClick( )
				end

			local upgradesPanel = vgui.Create( "DPanel" )
			upgradesPanel:SetSize( 340, 150 )
			upgradesPanel.Paint = function( )
				surface.SetDrawColor( 25, 25, 25, 200 )
				surface.DrawRect( 0, 0, upgradesPanel:GetWide( ), upgradesPanel:GetTall( ) )
				surface.SetDrawColor( 255, 255, 255, 255 )
				surface.DrawOutlinedRect(0, 0, upgradesPanel:GetWide( ), upgradesPanel:GetTall( ) )
			end
			
				local instructions = vgui.Create( "DLabel", upgradesPanel )
				instructions:SetPos( 10, 10 )
				instructions:SetText( "COMING SOON! :o Gather thoes points, because they will have a use!" )
				instructions:SizeToContents( )

		shop:AddSheet( "Upgrades", upgradesPanel, "gui/silkicons/group", false, false, "Buy upgrades." )
		shop:AddSheet( "Characters", charactersPanel, "gui/silkicons/brick_add", false, false, "Buy new characters to use." )

end

function GM:HideSpare2()
	if ( IsValid( self.ShopFrame ) ) then
		self.ShopFrame:Remove( )
		self.ShopFrame = nil
	end
end